home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 08 System Utilities / TS484D.SFX / 1581.diag (.txt) < prev    next >
Commodore BASIC  |  1992-10-05  |  1KB  |  38 lines
  1. 100 REM   CHECK 1581 DISK FOR CONTROLLER TYPE & J1 JUMPER
  2. 110 REM   12/09/87  FRED BOWEN
  3. 115 :
  4. 120 PRINT"INSERT ANY FORMATTED DISK IN DRIVE."
  5. 121 INPUT"CHECK WHICH UNIT";U: PRINT
  6. 125 :
  7. 130 OPEN 1,U,15      :L=218 : H=1
  8. 140 OPEN 2,U,2,"#"
  9. 145 PRINT#1,"M-R"CHR$(0)CHR$(192)CHR$(1): GET#1,A$
  10. 150 IF ASC(A$)<>192 THEN PRINT"DEVICE"U"IS NOT A 1581.": GOTO360
  11. 155 :
  12. 160 PRINT#1,"M-R"CHR$(L)CHR$(H)CHR$(5):         REM  MODIFY CONTROLLER CMDS
  13. 170 FORI=1TO5:GET#1,A$:B$=B$+CHR$(ASC(A$)OR3):C$=C$+A$:NEXT
  14. 180 PRINT#1,"M-W"CHR$(L)CHR$(H)CHR$(5)B$
  15. 190 :
  16. 200 PRINT#1,"U1";2;0;1;0       :GOSUB500:       REM  SEEK TRACK 1  & RESET TIMER
  17. 210 PRINT#1,"U1";2;0;80;0      :GOSUB600:       REM  SEEK TRACK 80 & READ  TIMER
  18. 220 :
  19. 230 PRINT#1,"M-W"CHR$(8)CHR$(64)CHR$(1)CHR$(0): REM  TEST JUMPER J1
  20. 240 PRINT#1,"M-R"CHR$(8)CHR$(64)CHR$(1): GET#1,J$
  21. 250 :
  22. 260 PRINT#1,"M-W"CHR$(L)CHR$(H)CHR$(5)C$:       REM  RESTORE CONTROLLER CMDS
  23. 270 IF VAL(F$)>0 THEN PRINT"SEEK ERROR- CHECK DISKETTE.": PRINT: RUN
  24. 285 :
  25. 290 PRINT"UNIT"U"CONTAINS A ";:                REM  REPORT
  26. 300 IF T>20 THEN PRINT"WD1770";
  27. 310 IF T<20 THEN PRINT"WD1772";
  28. 320 PRINT" AND J1 IS ";
  29. 330 IF J$="" THEN PRINT"OPEN"
  30. 340 IF J$>"" THEN PRINT"CLOSED"
  31. 360 :
  32. 370 CLOSE2: CLOSE1: END
  33. 380 :
  34. 390 :
  35. 474 -256
  36. 500 FORI=11TO8STEP-1: POKE56320+I,0: NEXT: RETURN
  37. 600 INPUT#1,F$,R$,E$,D$: T=PEEK(56329)*10+PEEK(56328): RETURN
  38.